c function in r